Finding all subgraphs

First we will run subgraph finding algorithm across the associations

subgraphs <- association_pairs %>% head(10000) %>% calculate_subgraph_structure()

subgraphs %>%
  select(-subgraphs) %>%
  head() %>%
  knitr::kable()
step n_edges strength n_nodes_seen n_subgraphs max_size rel_max_size avg_size avg_density n_triples
1 1 0.0916161 2 1 2 1.0000000 2.0 1.0000000 0
2 2 0.0836374 3 1 3 1.0000000 3.0 0.6666667 1
3 3 0.0749584 5 2 3 0.6000000 2.5 0.8333333 1
4 4 0.0729044 6 2 3 0.5000000 3.0 0.6666667 2
5 5 0.0728354 6 2 3 0.5000000 3.0 0.8333333 2
6 6 0.0704478 7 2 4 0.5714286 3.5 0.6666667 2